      SUBROUTINE FSBDRY(AF,AS,KG)
c
c23456789012345678901234567890123456789012345678901234567890123456789012
c
C    FSBDRY CREATES SOLID FUNDAMENTAL MATRIX AS FROM FLUID FUNDAMENTAL MATRIX
C    AF.IT IS PRESUMED THAT FSBDRY IS USED TO CROSS A F/S BOUNDARY.
c
c    calls no other routines
c
      IMPLICIT REAL*8(A-H,O-Z)
c
      DIMENSION AF(4,1),AS(6,1)
c
      DO 10 I=1,3
      DO 10 J=1,6
   10 AS(J,I)=0.D0
      IF(KG.NE.0) GOTO 20
      AS(1,1)=AF(1,1)
      AS(3,1)=AF(2,1)
      AS(2,2)=1.D0
      RETURN
c
   20 DO 25 K=1,2
      AS(1,K)=AF(1,K)
      AS(3,K)=AF(2,K)
      AS(4,K)=AF(3,K)
   25 AS(6,K)=AF(4,K)
      AS(2,3)=1.D0
c
      RETURN
      END
